100 POKE53280,.:POKE53281,.:PRINTCHR$(147):
102 FORV=54272TO54295:POKEV,0:NEXT:POKE54296,15:POKE54277,8:V1=54272
104 POKE54278,255:POKE54276,17:FORA=1TO2:S1=17:FORB=-3TO1:S2=13:POKE54273,S1+2
106 FORD=1TO2:POKE54287,S2:S2=S2*1.1:NEXT:S1=S1*1.2:NEXT:NEXT
108 FORD=1TO8:S2=20:POKE54273,S1:FORE=1TO3:POKE54287,S2:POKEV1+4,17
110 S2=S2*1.2:NEXT:S1=S1/1.2:POKEV1+4,64 :POKE54278,1:NEXT
112 FORN=1TO16:FORM=1TO10:         POKE646,N: PRINT"    ENDE[146]       [157]";
114 NEXTM:PRINT"[145][145][145][157][157][157][157][157][157][157]";:NEXTN
116 FORV=54272TO54295:POKEV,0:NEXT:POKE54296,15:PRINTCHR$(147)
117 FORC=1TO23:POKE646,C:PRINT"[164][175][185][209][209][185][175][164][164][175][185][206][205][185][175][164][164][175][185][184][184][185][175][164][164][175][185][206][205][185][175][164][164][175][185][209][209][185][175][164]";:NEXT
118 POKE54278,255:POKE54276,33:S1=17:FORB=-9TO1:S2=13:POKE54273,S1+2
120 FORD=1TO2:POKE54287,S2:S2=S2*1.1:NEXT:S1=S1*1.2:NEXT:
122 FORD=1TO8:S2=20:POKE54273,S1:FORE=1TO3:POKE54287,S2:POKEV1+4,17
124 S2=S2*1.2:NEXT:S1=S1/1.2:POKEV1+4,64 :POKE54278,1:NEXT
126 FORZ=1TO1750:NEXT:POKE56325,2:PRINT"             ";
128 PRINT"[153][148]            E N D E !";:POKE56325,55:FORZ=1TO1750:NEXT:SYS58253